home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 (Alt) / MACD 5.bin / workbench / libs / conlib.lha / ConLib / Misc_Stuff / KickPascal_con.lib < prev    next >
Encoding:
Text File  |  1992-01-04  |  1.2 KB  |  37 lines
  1. (******************************************************************
  2. ****
  3. ****    Name:   con.lib
  4. ****
  5. ****    Author: Bjørn Reese
  6. ****
  7. ****    Template of KickPascal Header for 'con.library'
  8. ****
  9. ****    WARNING!! Not tested at all!
  10. ****
  11. ******************************************************************)
  12.  
  13. {$if not def CON_LIB}
  14. CONST CON_LIB=0;
  15. VAR ConBase:Ptr;
  16. PROCEDURE OpenConLib;
  17.  BEGIN OpenLib(ConBase,'con.library',0) END;
  18. Library ConBase:
  19. -30:  FUNCTION OpenCon(a0:Ptr; d0:Word):Ptr;
  20. -36:  PROCEDURE CloseCon(a0:Ptr);
  21. -42:  FUNCTION DoFormat(a0,a1,a2,a3:Ptr; d0:Long):Ptr;
  22. -48:  PROCEDURE UserNotes(a0,a1:Ptr d0:Word);
  23. -54:  PROCEDURE DefineChars(d0:Word; a1,a2:Ptr);
  24. -60:  PROCEDURE DisplayRaw(a0,a1:Ptr; d0:Long);
  25. -66:  PROCEDURE Display(a0,a1,a2:Ptr; d0:Long);
  26. -72:  FUNCTION Accept(a0,a1:Ptr; d0:Long):Long; { Result = Long Integer!! }
  27. -78:  FUNCTION AcceptString(a0,a1:Ptr; d0:Long):Long; { do. }
  28. -84:  FUNCTION SetMsgHandler(a0,a1:Ptr):Ptr;
  29. -90:  FUNCTION GetInfo(a0,a1:Ptr):Ptr;
  30. -96:  PROCEDURE SetGfx(a0:Ptr; d0,d1,d2:Word);
  31. -102: PROCEDURE GotoXY(a0:Ptr; d0,d1:Word);
  32. -108: PROCEDURE Cursor(a0:Ptr; d0:Word);
  33. -114: PROCEDURE Scroll(a0:Ptr; d0:Integer);
  34. -120: FUNCTION Convert(a1,a2:Ptr; d0:Long; d1:Word):Ptr;
  35. END;
  36. {$endif}
  37.